home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / ptv2n1.arc / ADDABOUT.TXT next >
Text File  |  1991-03-26  |  344b  |  11 lines
  1. /*append the separator and the choice Restore All
  2.    to the system menu                         */
  3.  
  4. Def addAbout(self | hMenu)
  5. {
  6.   addAbout(self:ancestor); /*current ancestor is the Window class*/
  7.   hMenu := Call GetSystemMenu(hWnd, 0);
  8.   Call AppendMenu(hMenu, MF_SEPARATOR, 0, 0);
  9.   Call AppendMenu(hMenu, 0, 0xF220, asciiz("Restore &All"))
  10. }
  11.